1
'------------------------------------------------------------------------------
3 ' This code was generated by a tool.
5 ' Changes to this file may cause incorrect behavior and will be lost if
6 ' the code is regenerated.
8 '------------------------------------------------------------------------------
16 <Global.System
.Runtime
.CompilerServices
.CompilerGeneratedAttribute(), _
17 Global.System
.CodeDom
.Compiler
.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
18 Global.System
.ComponentModel
.EditorBrowsableAttribute(Global.System
.ComponentModel
.EditorBrowsableState
.Advanced
)> _
19 Partial
Friend NotInheritable Class MySettings
20 Inherits
Global.System
.Configuration
.ApplicationSettingsBase
22 Private Shared defaultInstance
As MySettings
= CType(Global.System
.Configuration
.ApplicationSettingsBase
.Synchronized(New MySettings
), MySettings
)
24 #Region
"My.Settings Auto-Save Functionality"
25 #
If _MyType
= "WindowsForms" Then
26 Private Shared addedHandler
As Boolean
28 Private Shared addedHandlerLockObject
As New Object
30 <Global.System
.Diagnostics
.DebuggerNonUserCodeAttribute(), Global.System
.ComponentModel
.EditorBrowsableAttribute(Global.System
.ComponentModel
.EditorBrowsableState
.Advanced
)> _
31 Private Shared
Sub AutoSaveSettings(ByVal sender
As Global.System
.Object, ByVal e
As Global.System
.EventArgs
)
32 If My
.Application
.SaveMySettingsOnExit
Then
39 Public Shared ReadOnly
Property [Default
]() As MySettings
42 #
If _MyType
= "WindowsForms" Then
43 If Not addedHandler
Then
44 SyncLock addedHandlerLockObject
45 If Not addedHandler
Then
46 AddHandler My
.Application
.Shutdown
, AddressOf AutoSaveSettings
52 Return defaultInstance
60 <Global.Microsoft
.VisualBasic
.HideModuleNameAttribute(), _
61 Global.System
.Diagnostics
.DebuggerNonUserCodeAttribute(), _
62 Global.System
.Runtime
.CompilerServices
.CompilerGeneratedAttribute()> _
63 Friend Module MySettingsProperty
65 <Global.System
.ComponentModel
.Design
.HelpKeywordAttribute("My.Settings")> _
66 Friend ReadOnly
Property Settings() As Global.VBASPNETShowSpinnerImage
.My
.MySettings
68 Return Global.VBASPNETShowSpinnerImage
.My
.MySettings
.Default